﻿Imports System.IO

Public Class HomeworkCheck
    Dim filename As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    Public B1S1Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 1.txt")

    Private Sub HomeworkCheck_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CheckForFiles()
        Block1CompletionStatus()
        Block2CompletionStatus()
        Block3CompletionStatus()
        Block4CompletionStatus()
        Block5CompletionStatus()
        Block6CompletionStatus()
        Block7CompletionStatus()
        Block8CompletionStatus()
        Block9CompletionStatus()
        Block10CompletionStatus()
        Block11CompletionStatus()
        Block12CompletionStatus()
    End Sub

    Public Sub Block1CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B1S1Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 1.txt")
        Dim B1S2Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 2.txt")
        Dim B1S3Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 3.txt")
        Dim B1S4Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 4.txt")
        Dim B1S5Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 5.txt")
        Dim B1S6Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 6.txt")
        Dim B1S7Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 7.txt")
        Dim B1S8Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 8.txt")
        Dim B1S9Check As New System.IO.StreamReader(filename & "\Homework\Block 1\Block 1 Section 9.txt")

        If B1S1Check.Read = -1 Then
            lblB1S1.Text = "NOT ATTEMPTED"
            lblB1S1.BackColor = Color.Yellow
        Else : While B1S1Check.Peek <> -1
                LastLine = B1S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S1.Text = "Done"
                    lblB1S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S1Check.Close()
        End If

        If B1S2Check.Read = -1 Then
            lblB1S2.Text = "NOT ATTEMPTED"
            lblB1S2.BackColor = Color.Yellow
        Else : While (B1S2Check.Peek <> -1)
                LastLine = B1S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S2.Text = "Done"
                    lblB1S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S2Check.Close()
        End If

        If B1S3Check.Read = -1 Then
            lblB1S3.Text = "NOT ATTEMPTED"
            lblB1S3.BackColor = Color.Yellow
        Else : While B1S3Check.Peek <> -1
                LastLine = B1S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S3.Text = "Done"
                    lblB1S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S3Check.Close()
        End If

        If B1S4Check.Read = -1 Then
            lblB1S4.Text = "NOT ATTEMPTED"
            lblB1S4.BackColor = Color.Yellow
        Else : While B1S4Check.Peek <> -1
                LastLine = B1S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S4.Text = "Done"
                    lblB1S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S4Check.Close()
        End If

        If B1S5Check.Read = -1 Then
            lblB1S5.Text = "NOT ATTEMPTED"
            lblB1S5.BackColor = Color.Yellow
        Else : While B1S5Check.Peek <> -1
                LastLine = B1S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S5.Text = "Done"
                    lblB1S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S5Check.Close()
        End If

        If B1S6Check.Read = -1 Then
            lblB1S6.Text = "NOT ATTEMPTED"
            lblB1S6.BackColor = Color.Yellow
        Else : While B1S6Check.Peek <> -1
                LastLine = B1S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S6.Text = "Done"
                    lblB1S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S6Check.Close()
        End If

        If B1S7Check.Read = -1 Then
            lblB1S7.Text = "NOT ATTEMPTED"
            lblB1S7.BackColor = Color.Yellow
        Else : While B1S7Check.Peek <> -1
                LastLine = B1S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S7.Text = "Done"
                    lblB1S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S7Check.Close()
        End If

        If B1S8Check.Read = -1 Then
            lblB1S8.Text = "NOT ATTEMPTED"
            lblB1S8.BackColor = Color.Yellow
        Else : While B1S8Check.Peek <> -1
                LastLine = B1S8Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S8.Text = "Done"
                    lblB1S8.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S8Check.Close()
        End If

        If B1S9Check.Read = -1 Then
            lblB1S9.Text = "NOT ATTEMPTED"
            lblB1S9.BackColor = Color.Yellow
        Else : While B1S9Check.Peek <> -1
                LastLine = B1S9Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB1S9.Text = "Done"
                    lblB1S9.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B1S9Check.Close()
        End If
    End Sub

    Public Sub Block2CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B2S1Check As New System.IO.StreamReader(filename & "\Homework\Block 2\Block 2 Section 1.txt")
        Dim B2S2Check As New System.IO.StreamReader(filename & "\Homework\Block 2\Block 2 Section 2.txt")
        Dim B2S3Check As New System.IO.StreamReader(filename & "\Homework\Block 2\Block 2 Section 3.txt")
        Dim B2S4Check As New System.IO.StreamReader(filename & "\Homework\Block 2\Block 2 Section 4.txt")
        Dim B2S5Check As New System.IO.StreamReader(filename & "\Homework\Block 2\Block 2 Section 5.txt")
        Dim B2S6Check As New System.IO.StreamReader(filename & "\Homework\Block 2\Block 2 Section 6.txt")
        Dim B2S7Check As New System.IO.StreamReader(filename & "\Homework\Block 2\Block 2 Section 7.txt")

        If B2S1Check.Read = -1 Then
            lblB2S1.Text = "NOT ATTEMPTED"
            lblB2S1.BackColor = Color.Yellow
        Else : While B2S1Check.Peek <> -1
                LastLine = B2S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB2S1.Text = "Done"
                    lblB2S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B2S1Check.Close()
        End If

        If B2S2Check.Read = -1 Then
            lblB2S2.Text = "NOT ATTEMPTED"
            lblB2S2.BackColor = Color.Yellow
        Else : While B2S2Check.Peek <> -1
                LastLine = B2S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB2S2.Text = "Done"
                    lblB2S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B2S2Check.Close()
        End If

        If B2S3Check.Read = -1 Then
            lblB2S3.Text = "NOT ATTEMPTED"
            lblB2S3.BackColor = Color.Yellow
        Else : While B2S3Check.Peek <> -1
                LastLine = B2S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB2S3.Text = "Done"
                    lblB2S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B2S3Check.Close()
        End If

        If B2S4Check.Read = -1 Then
            lblB2S4.Text = "NOT ATTEMPTED"
            lblB2S4.BackColor = Color.Yellow
        Else : While B2S4Check.Peek <> -1
                LastLine = B2S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB2S4.Text = "Done"
                    lblB2S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B2S4Check.Close()
        End If

        If B2S5Check.Read = -1 Then
            lblB2S5.Text = "NOT ATTEMPTED"
            lblB2S5.BackColor = Color.Yellow
        Else : While B2S5Check.Peek <> -1
                LastLine = B2S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB2S5.Text = "Done"
                    lblB2S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B2S5Check.Close()
        End If

        If B2S6Check.Read = -1 Then
            lblB2S6.Text = "NOT ATTEMPTED"
            lblB2S6.BackColor = Color.Yellow
        Else : While B2S6Check.Peek <> -1
                LastLine = B2S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB2S6.Text = "Done"
                    lblB2S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B2S6Check.Close()
        End If

        If B2S7Check.Read = -1 Then
            lblB2S7.Text = "NOT ATTEMPTED"
            lblB2S7.BackColor = Color.Yellow
        Else : While B2S7Check.Peek <> -1
                LastLine = B2S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB2S7.Text = "Done"
                    lblB2S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B2S7Check.Close()
        End If
    End Sub
    Public Sub Block3CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B3S1Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 1.txt")
        Dim B3S2Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 2.txt")
        Dim B3S3Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 3.txt")
        Dim B3S4Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 4.txt")
        Dim B3S5Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 5.txt")
        Dim B3S6Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 6.txt")
        Dim B3S7Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 7.txt")
        'Dim B3S8Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 8.txt")
        Dim B3S9Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 9.txt")
        Dim B3S10Check As New System.IO.StreamReader(filename & "\Homework\Block 3\Block 3 Section 10.txt")
        If B3S1Check.Read = -1 Then
            lblB3S1.Text = "NOT ATTEMPTED"
            lblB3S1.BackColor = Color.Yellow
        Else : While B3S1Check.Peek <> -1
                LastLine = B3S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S1.Text = "Done"
                    lblB3S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S1Check.Close()
        End If
        If B3S2Check.Read = -1 Then
            lblB3S2.Text = "NOT ATTEMPTED"
            lblB3S2.BackColor = Color.Yellow
        Else : While B3S2Check.Peek <> -1
                LastLine = B3S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S2.Text = "Done"
                    lblB3S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S2Check.Close()
        End If
        If B3S3Check.Read = -1 Then
            lblB3S3.Text = "NOT ATTEMPTED"
            lblB3S3.BackColor = Color.Yellow
        Else : While B3S3Check.Peek <> -1
                LastLine = B3S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S3.Text = "Done"
                    lblB3S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S3Check.Close()
        End If
        If B3S4Check.Read = -1 Then
            lblB3S4.Text = "NOT ATTEMPTED"
            lblB3S4.BackColor = Color.Yellow
        Else : While B3S4Check.Peek <> -1
                LastLine = B3S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S4.Text = "Done"
                    lblB3S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S4Check.Close()
        End If
        If B3S5Check.Read = -1 Then
            lblB3S5.Text = "NOT ATTEMPTED"
            lblB3S5.BackColor = Color.Yellow
        Else : While B3S5Check.Peek <> -1
                LastLine = B3S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S5.Text = "Done"
                    lblB3S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S5Check.Close()
        End If
        If B3S6Check.Read = -1 Then
            lblB3S6.Text = "NOT ATTEMPTED"
            lblB3S6.BackColor = Color.Yellow
        Else : While B3S6Check.Peek <> -1
                LastLine = B3S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S6.Text = "Done"
                    lblB3S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S6Check.Close()
        End If
        If B3S7Check.Read = -1 Then
            lblB3S7.Text = "NOT ATTEMPTED"
            lblB3S7.BackColor = Color.Yellow
        Else : While B3S7Check.Peek <> -1
                LastLine = B3S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S7.Text = "Done"
                    lblB3S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S7Check.Close()
        End If
        'If B3S8Check.Read = -1 Then
        '    lblB3S8.Text = "NOT ATTEMPTED"
        '    lblB3S8.BackColor = Color.Yellow
        'Else : While B3S8Check.Peek <> -1
        '        LastLine = B3S8Check.ReadLine()
        '        If LastLine.Contains("Homework Complete") Then
        '            lblB3S8.Text = "Done"
        '            lblB3S8.BackColor = Color.Green
        '        ElseIf LastLine = String.Empty Then
        '        End If
        '    End While
        '    B3S8Check.Close()
        'End If
        If B3S9Check.Read = -1 Then
            lblB3S9.Text = "NOT ATTEMPTED"
            lblB3S9.BackColor = Color.Yellow
        Else : While B3S9Check.Peek <> -1
                LastLine = B3S9Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S9.Text = "Done"
                    lblB3S9.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S9Check.Close()
        End If
        If B3S10Check.Read = -1 Then
            lblB3S10.Text = "NOT ATTEMPTED"
            lblB3S10.BackColor = Color.Yellow
        Else : While B3S10Check.Peek <> -1
                LastLine = B3S10Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB3S10.Text = "Done"
                    lblB3S10.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B3S10Check.Close()
        End If
    End Sub
    Public Sub Block4CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B4S1Check As New System.IO.StreamReader(filename & "\Homework\Block 4\Block 4 Section 1.txt")
        Dim B4S2Check As New System.IO.StreamReader(filename & "\Homework\Block 4\Block 4 Section 2.txt")
        Dim B4S3Check As New System.IO.StreamReader(filename & "\Homework\Block 4\Block 4 Section 3.txt")
        Dim B4S4Check As New System.IO.StreamReader(filename & "\Homework\Block 4\Block 4 Section 4.txt")
        If B4S1Check.Read = -1 Then
            lblB4S1.Text = "NOT ATTEMPTED"
            lblB4S1.BackColor = Color.Yellow
        Else : While B4S1Check.Peek <> -1
                LastLine = B4S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB4S1.Text = "Done"
                    lblB4S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B4S1Check.Close()
        End If
        If B4S2Check.Read = -1 Then
            lblB4S2.Text = "NOT ATTEMPTED"
            lblB4S2.BackColor = Color.Yellow
        Else : While B4S2Check.Peek <> -1
                LastLine = B4S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB4S2.Text = "Done"
                    lblB4S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B4S2Check.Close()
        End If
        If B4S3Check.Read = -1 Then
            lblB4S3.Text = "NOT ATTEMPTED"
            lblB4S3.BackColor = Color.Yellow
        Else : While B4S3Check.Peek <> -1
                LastLine = B4S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB4S3.Text = "Done"
                    lblB4S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B4S3Check.Close()
        End If
        If B4S4Check.Read = -1 Then
            lblB4S4.Text = "NOT ATTEMPTED"
            lblB4S4.BackColor = Color.Yellow
        Else : While B4S4Check.Peek <> -1
                LastLine = B4S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB4S4.Text = "Done"
                    lblB4S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B4S4Check.Close()
        End If
    End Sub

    Public Sub Block5CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B5S1Check As New System.IO.StreamReader(filename & "\Homework\Block 5\Block 5 Section 1.txt")
        Dim B5S2Check As New System.IO.StreamReader(filename & "\Homework\Block 5\Block 5 Section 2.txt")
        Dim B5S3Check As New System.IO.StreamReader(filename & "\Homework\Block 5\Block 5 Section 3.txt")
        Dim B5S4Check As New System.IO.StreamReader(filename & "\Homework\Block 5\Block 5 Section 4.txt")
        Dim B5S5Check As New System.IO.StreamReader(filename & "\Homework\Block 5\Block 5 Section 5.txt")
        Dim B5S6Check As New System.IO.StreamReader(filename & "\Homework\Block 5\Block 5 Section 6.txt")
        Dim B5S7Check As New System.IO.StreamReader(filename & "\Homework\Block 5\Block 5 Section 7.txt")
        If B5S1Check.Read = -1 Then
            lblB5S1.Text = "NOT ATTEMPTED"
            lblB5S1.BackColor = Color.Yellow
        Else : While B5S1Check.Peek <> -1
                LastLine = B5S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB5S1.Text = "Done"
                    lblB5S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B5S1Check.Close()
        End If

        If B5S2Check.Read = -1 Then
            lblB5S2.Text = "NOT ATTEMPTED"
            lblB5S2.BackColor = Color.Yellow
        Else : While B5S2Check.Peek <> -1
                LastLine = B5S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB5S2.Text = "Done"
                    lblB5S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B5S2Check.Close()
        End If

        If B5S3Check.Read = -1 Then
            lblB5S3.Text = "NOT ATTEMPTED"
            lblB5S3.BackColor = Color.Yellow
        Else : While B5S3Check.Peek <> -1
                LastLine = B5S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB5S3.Text = "Done"
                    lblB5S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B5S3Check.Close()
        End If

        If B5S4Check.Read = -1 Then
            lblB5S4.Text = "NOT ATTEMPTED"
            lblB5S4.BackColor = Color.Yellow
        Else : While B5S4Check.Peek <> -1
                LastLine = B5S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB5S4.Text = "Done"
                    lblB5S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B5S4Check.Close()
        End If

        If B5S5Check.Read = -1 Then
            lblB5S5.Text = "NOT ATTEMPTED"
            lblB5S5.BackColor = Color.Yellow
        Else : While B5S5Check.Peek <> -1
                LastLine = B5S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB5S5.Text = "Done"
                    lblB5S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B5S5Check.Close()
        End If

        If B5S6Check.Read = -1 Then
            lblB5S6.Text = "NOT ATTEMPTED"
            lblB5S6.BackColor = Color.Yellow
        Else : While B5S6Check.Peek <> -1
                LastLine = B5S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB5S6.Text = "Done"
                    lblB5S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B5S6Check.Close()
        End If

        If B5S7Check.Read = -1 Then
            lblB5S7.Text = "NOT ATTEMPTED"
            lblB5S7.BackColor = Color.Yellow
        Else : While B5S7Check.Peek <> -1
                LastLine = B5S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB5S7.Text = "Done"
                    lblB5S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B5S7Check.Close()
        End If
    End Sub
    Public Sub Block6CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B6S1Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 1.txt")
        Dim B6S2Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 2.txt")
        Dim B6S3Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 3.txt")
        Dim B6S4Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 4.txt")
        Dim B6S5Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 5.txt")
        Dim B6S6Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 6.txt")
        Dim B6S7Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 7.txt")
        Dim B6S8Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 8.txt")
        Dim B6S9Check As New System.IO.StreamReader(filename & "\Homework\Block 6\Block 6 Section 9.txt")
        If B6S1Check.Read = -1 Then
            lblB6S1.Text = "NOT ATTEMPTED"
            lblB6S1.BackColor = Color.Yellow
        Else : While B6S1Check.Peek <> -1
                LastLine = B6S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S1.Text = "Done"
                    lblB6S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S1Check.Close()
        End If
        If B6S2Check.Read = -1 Then
            lblB6S2.Text = "NOT ATTEMPTED"
            lblB6S2.BackColor = Color.Yellow
        Else : While B6S2Check.Peek <> -1
                LastLine = B6S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S2.Text = "Done"
                    lblB6S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S2Check.Close()
        End If
        If B6S3Check.Read = -1 Then
            lblB6S3.Text = "NOT ATTEMPTED"
            lblB6S3.BackColor = Color.Yellow
        Else : While B6S3Check.Peek <> -1
                LastLine = B6S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S3.Text = "Done"
                    lblB6S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S3Check.Close()
        End If
        If B6S4Check.Read = -1 Then
            lblB6S4.Text = "NOT ATTEMPTED"
            lblB6S4.BackColor = Color.Yellow
        Else : While B6S4Check.Peek <> -1
                LastLine = B6S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S4.Text = "Done"
                    lblB6S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S4Check.Close()
        End If
        If B6S5Check.Read = -1 Then
            lblB6S5.Text = "NOT ATTEMPTED"
            lblB6S5.BackColor = Color.Yellow
        Else : While B6S5Check.Peek <> -1
                LastLine = B6S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S5.Text = "Done"
                    lblB6S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S5Check.Close()
        End If
        If B6S6Check.Read = -1 Then
            lblB6S6.Text = "NOT ATTEMPTED"
            lblB6S6.BackColor = Color.Yellow
        Else : While B6S6Check.Peek <> -1
                LastLine = B6S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S6.Text = "Done"
                    lblB6S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S6Check.Close()
        End If
        If B6S7Check.Read = -1 Then
            lblB6S7.Text = "NOT ATTEMPTED"
            lblB6S7.BackColor = Color.Yellow
        Else : While B6S7Check.Peek <> -1
                LastLine = B6S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S7.Text = "Done"
                    lblB6S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S7Check.Close()
        End If
        If B6S8Check.Read = -1 Then
            lblB6S8.Text = "NOT ATTEMPTED"
            lblB6S8.BackColor = Color.Yellow
        Else : While B6S8Check.Peek <> -1
                LastLine = B6S8Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S8.Text = "Done"
                    lblB6S8.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S8Check.Close()
        End If
        If B6S9Check.Read = -1 Then
            lblB6S9.Text = "NOT ATTEMPTED"
            lblB6S9.BackColor = Color.Yellow
        Else : While B6S9Check.Peek <> -1
                LastLine = B6S9Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB6S9.Text = "Done"
                    lblB6S9.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B6S9Check.Close()
        End If
    End Sub
    Public Sub Block8CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B8S1Check As New System.IO.StreamReader(filename & "\Homework\Block 8\Block 8 Section 1.txt")
        Dim B8S2Check As New System.IO.StreamReader(filename & "\Homework\Block 8\Block 8 Section 2.txt")
        Dim B8S3Check As New System.IO.StreamReader(filename & "\Homework\Block 8\Block 8 Section 3.txt")
        Dim B8S4Check As New System.IO.StreamReader(filename & "\Homework\Block 8\Block 8 Section 4.txt")
        Dim B8S5Check As New System.IO.StreamReader(filename & "\Homework\Block 8\Block 8 Section 5.txt")
        Dim B8S6Check As New System.IO.StreamReader(filename & "\Homework\Block 8\Block 8 Section 6.txt")
        Dim B8S7Check As New System.IO.StreamReader(filename & "\Homework\Block 8\Block 8 Section 7.txt")
        If B8S1Check.Read = -1 Then
            lblB8S1.Text = "NOT ATTEMPTED"
            lblB8S1.BackColor = Color.Yellow
        Else : While B8S1Check.Peek <> -1
                LastLine = B8S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB8S1.Text = "Done"
                    lblB8S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B8S1Check.Close()
        End If
        If B8S2Check.Read = -1 Then
            lblB8S2.Text = "NOT ATTEMPTED"
            lblB8S2.BackColor = Color.Yellow
        Else : While B8S2Check.Peek <> -1
                LastLine = B8S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB8S2.Text = "Done"
                    lblB8S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B8S2Check.Close()
        End If
        If B8S3Check.Read = -1 Then
            lblB8S3.Text = "NOT ATTEMPTED"
            lblB8S3.BackColor = Color.Yellow
        Else : While B8S3Check.Peek <> -1
                LastLine = B8S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB8S3.Text = "Done"
                    lblB8S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B8S3Check.Close()
        End If
        If B8S4Check.Read = -1 Then
            lblB8S4.Text = "NOT ATTEMPTED"
            lblB8S4.BackColor = Color.Yellow
        Else : While B8S4Check.Peek <> -1
                LastLine = B8S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB8S4.Text = "Done"
                    lblB8S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B8S4Check.Close()
        End If
        If B8S5Check.Read = -1 Then
            lblB8S5.Text = "NOT ATTEMPTED"
            lblB8S5.BackColor = Color.Yellow
        Else : While B8S5Check.Peek <> -1
                LastLine = B8S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB8S5.Text = "Done"
                    lblB8S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B8S5Check.Close()
        End If
        If B8S6Check.Read = -1 Then
            lblB8S6.Text = "NOT ATTEMPTED"
            lblB8S6.BackColor = Color.Yellow
        Else : While B8S6Check.Peek <> -1
                LastLine = B8S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB8S6.Text = "Done"
                    lblB8S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B8S6Check.Close()
        End If
        If B8S7Check.Read = -1 Then
            lblB8S7.Text = "NOT ATTEMPTED"
            lblB8S7.BackColor = Color.Yellow
        Else : While B8S7Check.Peek <> -1
                LastLine = B8S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB8S7.Text = "Done"
                    lblB8S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B8S7Check.Close()
        End If
    End Sub

    Public Sub Block7CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B7S1Check As New System.IO.StreamReader(filename & "\Homework\Block 7\Block 7 Section 1.txt")
        Dim B7S2Check As New System.IO.StreamReader(filename & "\Homework\Block 7\Block 7 Section 2.txt")
        Dim B7S3Check As New System.IO.StreamReader(filename & "\Homework\Block 7\Block 7 Section 3.txt")
        Dim B7S4Check As New System.IO.StreamReader(filename & "\Homework\Block 7\Block 7 Section 4.txt")
        Dim B7S5Check As New System.IO.StreamReader(filename & "\Homework\Block 7\Block 7 Section 5.txt")
        Dim B7S6Check As New System.IO.StreamReader(filename & "\Homework\Block 7\Block 7 Section 6.txt")
        Dim B7S7Check As New System.IO.StreamReader(filename & "\Homework\Block 7\Block 7 Section 7.txt")
        If B7S1Check.Read = -1 Then
            lblB7S1.Text = "NOT ATTEMPTED"
            lblB7S1.BackColor = Color.Yellow
        Else : While B7S1Check.Peek <> -1
                LastLine = B7S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB7S1.Text = "Done"
                    lblB7S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B7S1Check.Close()
        End If
        If B7S2Check.Read = -1 Then
            lblB7S2.Text = "NOT ATTEMPTED"
            lblB7S2.BackColor = Color.Yellow
        Else : While B7S2Check.Peek <> -1
                LastLine = B7S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB7S2.Text = "Done"
                    lblB7S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B7S2Check.Close()
        End If
        If B7S3Check.Read = -1 Then
            lblB7S3.Text = "NOT ATTEMPTED"
            lblB7S3.BackColor = Color.Yellow
        Else : While B7S3Check.Peek <> -1
                LastLine = B7S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB7S3.Text = "Done"
                    lblB7S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B7S3Check.Close()
        End If
        If B7S4Check.Read = -1 Then
            lblB7S4.Text = "NOT ATTEMPTED"
            lblB7S4.BackColor = Color.Yellow
        Else : While B7S4Check.Peek <> -1
                LastLine = B7S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB7S4.Text = "Done"
                    lblB7S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B7S4Check.Close()
        End If
        If B7S5Check.Read = -1 Then
            lblB7S5.Text = "NOT ATTEMPTED"
            lblB7S5.BackColor = Color.Yellow
        Else : While B7S5Check.Peek <> -1
                LastLine = B7S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB7S5.Text = "Done"
                    lblB7S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B7S5Check.Close()
        End If
        If B7S6Check.Read = -1 Then
            lblB7S6.Text = "NOT ATTEMPTED"
            lblB7S6.BackColor = Color.Yellow
        Else : While B7S6Check.Peek <> -1
                LastLine = B7S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB7S6.Text = "Done"
                    lblB7S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B7S6Check.Close()
        End If
        If B7S7Check.Read = -1 Then
            lblB7S7.Text = "NOT ATTEMPTED"
            lblB7S7.BackColor = Color.Yellow
        Else : While B7S7Check.Peek <> -1
                LastLine = B7S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB7S7.Text = "Done"
                    lblB7S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B7S7Check.Close()
        End If
    End Sub

    Public Sub Block9CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B9S1Check As New System.IO.StreamReader(filename & "\Homework\Block 9\Block 9 Section 1.txt")
        Dim B9S2Check As New System.IO.StreamReader(filename & "\Homework\Block 9\Block 9 Section 2.txt")
        Dim B9S3Check As New System.IO.StreamReader(filename & "\Homework\Block 9\Block 9 Section 3.txt")
        Dim B9S4Check As New System.IO.StreamReader(filename & "\Homework\Block 9\Block 9 Section 4.txt")
        If B9S1Check.Read = -1 Then
            lblB9S1.Text = "NOT ATTEMPTED"
            lblB9S1.BackColor = Color.Yellow
        Else : While B9S1Check.Peek <> -1
                LastLine = B9S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB9S1.Text = "Done"
                    lblB9S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B9S1Check.Close()
        End If
        If B9S2Check.Read = -1 Then
            lblB9S2.Text = "NOT ATTEMPTED"
            lblB9S2.BackColor = Color.Yellow
        Else : While B9S2Check.Peek <> -1
                LastLine = B9S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB9S2.Text = "Done"
                    lblB9S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B9S2Check.Close()
        End If
        If B9S3Check.Read = -1 Then
            lblB9S3.Text = "NOT ATTEMPTED"
            lblB9S3.BackColor = Color.Yellow
        Else : While B9S3Check.Peek <> -1
                LastLine = B9S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB9S3.Text = "Done"
                    lblB9S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B9S3Check.Close()
        End If
        If B9S4Check.Read = -1 Then
            lblB9S4.Text = "NOT ATTEMPTED"
            lblB9S4.BackColor = Color.Yellow
        Else : While B9S4Check.Peek <> -1
                LastLine = B9S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB9S4.Text = "Done"
                    lblB9S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B9S4Check.Close()
        End If
    End Sub
    Public Sub Block10CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B10S1Check As New System.IO.StreamReader(filename & "\Homework\Block 10\Block 10 Section 1.txt")
        Dim B10S2Check As New System.IO.StreamReader(filename & "\Homework\Block 10\Block 10 Section 2.txt")
        If B10S1Check.Read = -1 Then
            lblB10S1.Text = "NOT ATTEMPTED"
            lblB10S1.BackColor = Color.Yellow
        Else : While B10S1Check.Peek <> -1
                LastLine = B10S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB10S1.Text = "Done"
                    lblB10S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B10S1Check.Close()
        End If
        If B10S2Check.Read = -1 Then
            lblB10S2.Text = "NOT ATTEMPTED"
            lblB10S2.BackColor = Color.Yellow
        Else : While B10S2Check.Peek <> -1
                LastLine = B10S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB10S2.Text = "Done"
                    lblB10S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B10S2Check.Close()
        End If
    End Sub
    Public Sub Block11CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B11S1Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 1.txt")
        Dim B11S2Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 2.txt")
        Dim B11S3Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 3.txt")
        Dim B11S4Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 4.txt")
        Dim B11S5Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 5.txt")
        Dim B11S6Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 6.txt")
        Dim B11S7Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 7.txt")
        Dim B11S8Check As New System.IO.StreamReader(filename & "\Homework\Block 11\Block 11 Section 8.txt")

        If B11S1Check.Read = -1 Then
            lblB11S1.Text = "NOT ATTEMPTED"
            lblB11S1.BackColor = Color.Yellow
        Else : While B11S1Check.Peek <> -1
                LastLine = B11S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S1.Text = "Done"
                    lblB11S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S1Check.Close()
        End If
        If B11S2Check.Read = -1 Then
            lblB11S2.Text = "NOT ATTEMPTED"
            lblB11S2.BackColor = Color.Yellow
        Else : While B11S2Check.Peek <> -1
                LastLine = B11S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S2.Text = "Done"
                    lblB11S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S2Check.Close()
        End If
        If B11S3Check.Read = -1 Then
            lblB11S3.Text = "NOT ATTEMPTED"
            lblB11S3.BackColor = Color.Yellow
        Else : While B11S3Check.Peek <> -1
                LastLine = B11S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S3.Text = "Done"
                    lblB11S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S3Check.Close()
        End If
        If B11S4Check.Read = -1 Then
            lblB11S4.Text = "NOT ATTEMPTED"
            lblB11S4.BackColor = Color.Yellow
        Else : While B11S4Check.Peek <> -1
                LastLine = B11S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S4.Text = "Done"
                    lblB11S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S4Check.Close()
        End If
        If B11S5Check.Read = -1 Then
            lblB11S5.Text = "NOT ATTEMPTED"
            lblB11S5.BackColor = Color.Yellow
        Else : While B11S5Check.Peek <> -1
                LastLine = B11S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S5.Text = "Done"
                    lblB11S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S5Check.Close()
        End If
        If B11S6Check.Read = -1 Then
            lblB11S6.Text = "NOT ATTEMPTED"
            lblB11S6.BackColor = Color.Yellow
        Else : While B11S6Check.Peek <> -1
                LastLine = B11S6Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S6.Text = "Done"
                    lblB11S6.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S6Check.Close()
        End If
        If B11S7Check.Read = -1 Then
            lblB11S7.Text = "NOT ATTEMPTED"
            lblB11S7.BackColor = Color.Yellow
        Else : While B11S7Check.Peek <> -1
                LastLine = B11S7Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S7.Text = "Done"
                    lblB11S7.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S7Check.Close()
        End If
        If B11S8Check.Read = -1 Then
            lblB11S8.Text = "NOT ATTEMPTED"
            lblB11S8.BackColor = Color.Yellow
        Else : While B11S8Check.Peek <> -1
                LastLine = B11S8Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB11S8.Text = "Done"
                    lblB11S8.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B11S8Check.Close()
        End If
    End Sub
    Public Sub Block12CompletionStatus()
        '***********************************************
        '*************Will Track Completion*************
        Dim LastLine As String
        Dim B12S1Check As New System.IO.StreamReader(filename & "\Homework\Block 12\Block 12 Section 1.txt")
        Dim B12S2Check As New System.IO.StreamReader(filename & "\Homework\Block 12\Block 12 Section 2.txt")
        Dim B12S3Check As New System.IO.StreamReader(filename & "\Homework\Block 12\Block 12 Section 3.txt")
        Dim B12S4Check As New System.IO.StreamReader(filename & "\Homework\Block 12\Block 12 Section 4.txt")
        Dim B12S5Check As New System.IO.StreamReader(filename & "\Homework\Block 12\Block 12 Section 5.txt")
        If B12S1Check.Read = -1 Then
            lblB12S1.Text = "NOT ATTEMPTED"
            lblB12S1.BackColor = Color.Yellow
        Else : While B12S1Check.Peek <> -1
                LastLine = B12S1Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB12S1.Text = "Done"
                    lblB12S1.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B12S1Check.Close()
        End If
        If B12S2Check.Read = -1 Then
            lblB12S2.Text = "NOT ATTEMPTED"
            lblB12S2.BackColor = Color.Yellow
        Else : While B12S2Check.Peek <> -1
                LastLine = B12S2Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB12S2.Text = "Done"
                    lblB12S2.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B12S2Check.Close()
        End If
        If B12S3Check.Read = -1 Then
            lblB12S3.Text = "NOT ATTEMPTED"
            lblB12S3.BackColor = Color.Yellow
        Else : While B12S3Check.Peek <> -1
                LastLine = B12S3Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB12S3.Text = "Done"
                    lblB12S3.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B12S3Check.Close()
        End If
        If B12S4Check.Read = -1 Then
            lblB12S4.Text = "NOT ATTEMPTED"
            lblB12S4.BackColor = Color.Yellow
        Else : While B12S4Check.Peek <> -1
                LastLine = B12S4Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB12S4.Text = "Done"
                    lblB12S4.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B12S4Check.Close()
        End If
        If B12S5Check.Read = -1 Then
            lblB12S5.Text = "NOT ATTEMPTED"
            lblB12S5.BackColor = Color.Yellow
        Else : While B12S5Check.Peek <> -1
                LastLine = B12S5Check.ReadLine()
                If LastLine.Contains("Homework Complete") Then
                    lblB12S5.Text = "Done"
                    lblB12S5.BackColor = Color.Green
                ElseIf LastLine = String.Empty Then
                End If
            End While
            B12S5Check.Close()
        End If
    End Sub

    Private Sub CheckForFiles()
        'Dim filename As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        'If (Not System.IO.File.Exists(filename & "\Homework\Block 1\Block 1 Section 1.txt")) Then
        'End If

    End Sub

End Class